Amiga Format CD 7/Amiga Format AFCD07 (Dec 1996, Issue 91).iso/serious/shareware/comms/internet/web-related/apache_1.0.5/install_apache

Text File | 1996-06-25 | 5KB | 225 lines

;;
;; Installation script for Apache
;;

;; Set Inet: To AMiTCP: if it doesn't exist
(if (= (exists "Inet:db/passwd" (noreq)) 0)
    (makeassign "Inet" "AmiTCP:" (safe))
    (debug "inet: exists")
)


(if
(and
    (= (exists "libs:ixemul.library") 1)
    ( < ( / (getversion "libs:ixemul.library") 65536) 43 ) )
    (abort "You must have ixemul.library version >43.0 to run Apache.")
)

(set @source-dir
    (if (= 1 (exists @icon) )
    (pathonly (expandpath @icon))
    (expandpath @icon)
    )
)

(select
    (askchoice
    (prompt "Which version of apache do you want to install")
    (choices "000" "020+")
    (help "For people who have a 68020+ CPU, choose 020+, else choose 000")
    )
    (set @apache-ver "httpd000")
    (set @apache-ver "httpd020")
)

(set @apache-dest
    (askdir
    (prompt "Enter directory for installing apache. The script will create a directory called apache_1.0.5. If the current directory is chosen, it will install in place")
    (help @askdir-help)
    (default @source-dir)
    )
)

(if (= @apache-dest @source-dir)
    (set @apache-src-dest @apache-dest)
    (set @apache-src-dest (tackon @apache-dest "apache_1.0.5") )
)
(debug "apache-src-dest is " @apache-src-dest)
(makeassign "apache" @apache-src-dest)

(set apache-install "")

(set @source-bin-dir (tackon @apache-src-dest "bin") )

(debug "source-dir is " @source-dir)
(debug "source-bin-dir is " @source-bin-dir)


;only copy files if installing into another dir
(if (= @source-dir @apache-dest)
    (debug "installing into same directory")
    (
    (makedir @apache-src-dest)
    (copyfiles
        (prompt "Copying necessary files")
        (source @source-dir)
        (dest @apache-src-dest)
        (help @copyfiles-help)
        (all)
        (infos)
    )
    )
)

; copy httpdxxx to httpd
(copyfiles
    (prompt "copying the necessary httpd cpu version")
    (source (tackon @apache-src-dest @apache-ver) )
    (dest   @apache-src-dest)
    (newname "httpd")
)

(delete (tackon @apache-src-dest "httpd000") )
(delete (tackon @apache-src-dest "httpd020") )

; ask if you want to dearchive the html files
(if
    (askbool
    (prompt "Do you want to dearchive the sample html files?")
    (default 0)
    (help @bool-help)
    )
    (
    (set lhacommand "lha x ")
    (set lhacommand (cat lhacommand (tackon @apache-src-dest "sample_html.lha") ) )
    (set lhacommand (cat lhacommand " apache:") )
    (run lhacommand (prompt "Unarchiving files") )
    )
    (debug "Didn't want to unarchive files")
)

; get rid of this
(delete (tackon @apache-src-dest "sample_html.lha") )

(set apache-install "assign apache: ")
(set apache-install (cat apache-install @apache-src-dest) )

(if ( = (exists "bin:" (noreq) )  2 )
    (
    (if (= (expandpath "bin:") @source-bin-dir)
        (debug "installing bin into same directory")
        (
        (copyfiles
            (prompt "Copying bin to bin:")
            (source "bin")
            (dest "bin:")
            (confirm)
            (help @copyfiles-help)
            (all)
        )
        (delete @source-bin-dir)
        )
    )
    )
    (set apache-install (cat apache-install "assign bin: apache:bin\n") )
    (set apache-install (cat apache-install "path bin: add\n") )
)

(debug "apache-install is" apache-install)

(startup "apache" apache-install
    (prompt ("%s%s"
        "Add the following lines to s:user-startup\n"
        apache-install
        )
    )
    (help @startup-help)
    (command apache-install)
)

; add user http
(if
    (askbool
    (prompt "Add user http to Inet:db/passwd?")
    (default 1)
    (help @bool-help)
    )
    (
    (textfile
        (dest "t:passwd")
        (include "Inet:db/passwd")
        (append "http|*|1001|1001||sys:|cli")
    )
    (copyfiles
        (source "t:passwd")
        (dest "Inet:db")
    )
    (delete "t:passwd")
    )
    (debug "Didn't want to add user")
)


; add group http
(if
    (askbool
    (prompt "Add group http to Inet:db/group?" )
    (default 1)
    (help @bool-help)
    )
    (
    (textfile
        (dest "t:group")
        (include "Inet:db/group")
        (append "http|*|1001|http")
    )
    (copyfiles
        (source "t:group")
        (dest "Inet:db")
    )
    (delete "t:group")
    )
    (debug "Didn't want to add group")
)


; add services line
(if
    (askbool
    (prompt "Add the following line to inet:db/services\n"
        "http  80/tcp ; World Wide Web"
    )
    (default 1)
    (help @bool-help)
    )
    (
    (textfile
        (dest "t:services")
        (include "Inet:db/services")
        (append "http   80/tcp  ;World Wide Web")
    )
    (copyfiles
        (source "t:services")
        (dest "Inet:db")
    )
    (delete "t:service")
    )
    (debug "Didn't want to add service")
)

(message
    "Congratulations, Apache is now installed."
    "All documentation can be found at http://www.apache.org/  "
    "Since Inet225 and AmiTCP differ in inetd.conf lines add the"
    "following for Inet225:\n"
    "http  stream  tcp  nowait  apache:httpd\n"
    "or for AmiTCP:\n"
    "http  stream  tcp  nowait  root  apache:httpd\n"
    "To get started right away you need to send break the inetd process"
    "with signal f - ie. \"break <inetd_process_number> f\"\n"
    "Enjoy!"
)

(exit (quiet) )